home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / fp / ifp_unix.lzh / ifp / fproot / demo / Euler < prev    next >
Encoding:
Text File  |  1987-02-01  |  281 b   |  13 lines
  1. (*
  2.  * Compute Euler's phi-function, i.e. number of number rel. prime to n.
  3.  *
  4.  * E.g. 8:Euler -> 4 since 1,3,5,7 are relatively prime to 8
  5.  *)
  6. DEF Euler AS
  7.    [id,iota] | distl |
  8.    EACH 
  9.       WHILE [2,#0]|> DO [2,mod] END |
  10.       IF [1, #1]|= THEN #1 ELSE #0 END 
  11.    END | sum;
  12.  
  13.